home *** CD-ROM | disk | FTP | other *** search
/ Airline Maintenance & Engineering / Unisys Airline Maintenance & Engineering.iso / unisys.dxr / 00116.ls < prev    next >
Encoding:
Text File  |  1997-04-14  |  1.2 KB  |  60 lines

  1. on startMovie
  2. end
  3.  
  4. on roll_check first, last, offset
  5.   repeat with temp = first to last
  6.     if rollOver(temp) then
  7.       set the visible of sprite (temp + offset) to 1
  8.       set the visible of sprite (temp + (offset * 2)) to 1
  9.       next repeat
  10.     end if
  11.     set the visible of sprite (temp + offset) to 0
  12.     set the visible of sprite (temp + (offset * 2)) to 0
  13.   end repeat
  14. end
  15.  
  16. on set_visible first, last
  17.   repeat with temp = first to last
  18.     set the visible of sprite temp to 1
  19.   end repeat
  20. end
  21.  
  22. on set_invisible first, last
  23.   repeat with temp = first to last
  24.     set the visible of sprite temp to 0
  25.   end repeat
  26. end
  27.  
  28. on transition
  29.   puppetSprite(40, 0)
  30.   puppetTransition(10)
  31. end
  32.  
  33. on transition_true
  34.   puppetSprite(40, 1)
  35.   puppetTransition(23)
  36. end
  37.  
  38. on compass_check
  39.   if (the mouseV < 480) and (the mouseV > 0) then
  40.     set the castNum of sprite 40 to cast ("comp" & the mouseV / 25 & EMPTY)
  41.   end if
  42. end
  43.  
  44. on timings_set value
  45.   global timings_list, timings_place
  46.   set timings_list to value
  47.   set timings_place to 1
  48.   startTimer()
  49. end
  50.  
  51. on timings_hold
  52.   global timings_list, timings_place
  53.   if (the timer / 60) > getAt(timings_list, timings_place) then
  54.     set timings_place to timings_place + 1
  55.     go(the frame + 1)
  56.   else
  57.     go(the frame)
  58.   end if
  59. end
  60.